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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
* 
® 
* 
OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
ION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTUARE OR ANY OTHER * 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 18 HEREBY 
TRANSFERRED. . 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. . 
® 

* 

® 

e 

* 

* 


DIGITAL ASSUMES NO RESPONS af 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH 
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LITY 
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3 p++ 
3; Facility: RMS 


: Abstract: 
: This module is responsible for the allocation, ents tot teet tens and 
3 deallocation of the Network Work Area (NWA) control block. 
: Environment: VAX/VMS, executive mode 
; Author: James A. Krycka, Creation Date: 13-JAN-1978 
: Modified By: 
v03-009 RASO2553 Ron Schaefer 15-Feb-1984 
Initialize the STRNLNM item-List. 
v03-008 kB/0570 Keith B. Thompson 29-Jul-1983 
Remove ref to ifb$v_nwa 
v03-007 JAKO104 22-APR-1983 


Modify NTSNWA INT and AIT SNWA FREE to handle Large DAP buffers 
described by RWA$Q_BIGBUF. 


V03-006 KRM0059 Malik 20-Aug-1982 
Clear IFBSV_NWA bit and IFBSL_NWA_PTR in NTSNWA_FREE. 


v03-005 KRMOO0SS alik eon: r+» 
Changed NWAS$B UNDERC INE to FWA$B_UNDE 
Moved old NWAST_NODEBUF & NWAST QUOTEDBUP. initialization 
to RMOFWASET. Initialize NWASB_NODBUFSIZ 


V02-004 JAK0067 Krycka 26-0CT-1981 
Initialize wuasa’ “LG field. 
v02-003 SPR37751 J A Krycka 10-JUN-1981 


If a receive Q10 is outstanding, process (stall on) the AST 
yerere, Goatees ing the NWA to avoid a BUGCHECK when the AST 
s delivere 


V02-002 JAK0058 J A Krycka 22-MAY-1981 Lg —. 
his module was created from code previously residing in 
RMOXPFN and RMSOCLOSE. 
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>uw 
zn 


Equated Symbols: 


ASSUME NWASQ_FLG EQ 0 


¢ ~SBTTL DECLARATIONS 

; : Include Files: 

9 oe 

0 SIFBDEF : Define IFAB symbols 
1 SLNMDEF : Define LNM symbols 
¢ SNWADEF ; Define Network Work Area symbols 
4 

? Macros: 

7 None 

8 

9 

0 

4 


Own Storage: 
None 


COOCOOCSOOCOCCOOOCOSOOOCOOCOOOOoOSCOoOSO F- 
COOOCOCoCooCoCooooooooooooooseoo +c 
COOCCCOCC COCO OCOOCOCOOOCOCOCOOooOoO _* 
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-SBTTL NTSNWA_LINIT, Allocate and Initialize NWA 


¥ NTSNWA. INIT = allocates space for a NWA control block and then initializes 
; Selected fields in it and in the FWA. 


: Calling Sequence: 
; BSBW = NTSNWA_INIT 

: Input Parameters: 

: RB FAB address 

: R9 IFAB address 

5 R10 FWA address 

3 R11 Impure Area address 

; Implicit Inputs: 

; None 

: Output Parameters: 

; RO Status code (RMS) 

: R1 Destroyed 

: R2 NWA size in bytes (rounded to page boundary) 
: R3 NWA address 

: Implicit Outputs: 

: FWA$Q_NODE 

: FWA$Q_ QUOTED 

$ IFBSL_NWA_PTR 

; NWA fields 

: Completion Codes: 

; Standard RMS completion codes 
: Side Effects: 


Space is obtained from the RMS buffer manager. 


_—- 
° 


NTSNWA_INIT:: : Entry point 


: aiyecese 9 space for the Network Work Area (NWA) control biock and make IFAB 
3 point to it. 


MOVZWL #NWASC_BLN,R2 3; Specify size of NWA in bytes 

BSBW RMSGE TPAG ; Allocate space cuOt ZEROED) 
ROT : Branch on failur 

MOVL R35, 1FBSL_NWA_PTR(R9) ; Store NWA address in IFAB 


me ek ae et a et 8 = 8 8 2 = = = 8 ss 
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OOF 137 ile 
Sor 158 ; Initialize selected fields in NWA. 
OOF 159; 
OOF 160 
OOOF 161 ASSUME NWASQ_XLTBUF2 EQ ~_— aL Toy 188 
QOOF 196 ASSUME NWA$T ~1TM -ATTR EQ NWAST_ITM_LST 
44 16 ASSUME NWAST_ITM-STRING EQ NUAST ITM_ATTR#+12 
OOF 164 ASSUME NWAST- =f Th. _MAXINDX EQ NWAS$ $T_ITM_STRING+*12 
OQOOF 165 ASSUME NWA$T “IT M-END EQ NWAST_ITM MAXINDX+12 
Boor 196 ASSUME NWASL-XLTBUFFLG EQ NWASL_XCTCNT+4 
$3 7¢ Boor 168 CLRQ NWA$Q_FLG(R3) ; Initialize status flags 
5i 024C C 7E QO11 169 MOVAQ NWA$Q"XLTBUF1(R3),R1 ; Initialize descriptors for use during 
0016 170 ; logical node name translation 
81 FF 8F 9A 0016 171 MOVZBL #NWASC My Tout sit (R1)+ ; Set-up Ist translation buffer 
81 O2AC C3 9E OO1A 1% MOVAB NWAST_RLTBUFI(R3),(R1)+ ; °° 
81 FF 8F QA OOF 17 MOVZBL #NWAST KL TBUESI¢ (R1)+ ; Set-up 2nd translation buffer 
61 O3AC C3 9E 0023 17% NWAST_RLTBUF2(R35,(R1) : * 
026C C3 9E 0028 175 MOVAB NWAST_ACSBUF (R3),- ; Initialize address for access 
0248 C3 002C 176 WASQ_ACS+4(R3) ; control string descriptor 
0238 C3 D4 it 177 CLRL NWASL_XLTATTR(R3) ; Initialize node translation attributes 
0228 C3 7C 0033 178 CLRQ NWASL_XLTCNT(R3) : Initialize node translation counter 
0037 179 ; and translation buffer flag 
51 0200 c3 9E 0037 180 MOVAB NWAST_ITM_LST(R3),R1 Initialize STRNLNM itemlist 
81 00030004 8F 00 itd 181 MOVL #<<LNAS$_ATTRIBUTESA16>!4>,(R1)+ ; Translation attributes 
81 0238 C3 9E 004 136 MOVAB NUASL MXCTATIRGRSS GRIDS : eae ha attributes 
81 D4 0048 18 CLRL (R1)+ n length 
81 OOO2Z00FF 8F DO 004A 184 MOVL #<<LNMS_ STRING@16>!NWASC. * AC TBUFSIZ>, (R1)+ 
81 04 0051 185 CLRL (R1)+ 3 Buffer addr setup later 
81 0230 C3 9E 0653 186 MOVAB NWASL_XLTSIZ(R3),(R1)+ ; Return Length 
81 00070064 8F pO 0058 #£«187 MOVL PecLNAS MAX_INDEX@16>!4>.(R1)+ 3; Max # of translations 
81 0234 C03 9E OOSF 188 MOVAB NWASL_XCTMARINDX(R3), (R15+ : Place for count 
81 7C 0064 189 CLRQ (R1)+ ; No return len and eol 
0168 C3 94 0066 £190 CLRB NWA$B_NODBUF S1Z(R3) ; Initialize NODEBUF size field 
0170 C3 7C OO06A 191 CLRQ NWA$Q_BIGBUF (R3) ; Zero big DAP buffer descriptor to 
QO06E 192 ; indicate that buffer cogs not exist 
05 QOO6E 193 EXIT: RSB : Exit with RMS code in 
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244 
3; NTSNWA_FREE = deallocates the NWA control block after all receive QI10 ASTs 
: Rav been processed. 


: Calling Sequence: 

BSBw NTSNWA_FREE 
Input Parameters: 

R8 FAB address 

R9 IFAB address 

R10 IFAB address 

R11 Impure Area address 
Implicit Inputs: 


IFBSL_NWA_PTR 
NWASV_RCVOIO 


Rn rn nr on or ro 


O6F 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
OOF 


pe pee ee lolofelolelolololololelololololo) 


i 
199 
198 
199 
00 
83 
03 
04 
: 
09 
208 
44 
10 
$1) 
518 
214 
$12 
006F 16 NWASV_ _RCVAST 
OO6F 217 
OO6F 218 ; Output Parameters: 
OO6F 219 
OO6F 220 RO-R5 =Nestroyed 
OO6F $$ AP Destroyed 
OO6F 222 nan 
O0O6F 223 ; Implicit Outputs: 
O06F $s¢ 
006F 25 NWA is deallocated 
O06F 226 ; 
OO6F 227 ; Completion Codes: 
OO6F 228 
OO6F 229 None 
O06F 230 . 
OO6F 231 ; Side Effects: 
O06F 232 : 
OO6F 233 Space is returned to the RMS buffer manager. 
OO6F 234 
O06F $37 -- 
O06F 36 
OO6F 237 NTSNWA_FREE:: Entry point 
5é 3C A 09 O0GF 338 MOVL JF BSL_NUA_PTR(R9) .RG : Get NWA address 
39 +13 0073 9 BEQL 0$ ; Branch if none 
0075 40 
0075 st 3 
0075 ri} 3; If a special receive AST is still peratete. then stall on it (i.e., wait for it 
0075 43 ; ~ Comps ete? before deallocating t A. A special receive Q10 is one posted 
bage 44; by NTSTRANSMIT_PKT that references the NWA ont uses NTSSTALLAST instead of 
075 45 ; RMSSTALLAST. 
ee 
1364 03 #€1 0075 48 BBC #NWASV_RCVQIO,(R4),10$ ; Branch if special receive not posted 
OF 64 04 =$§£EO 0079 49 BBS #NWASV-RCVAST,(R4),108 ; eranc® if special received completed 
B70 50 pan vert #WNWASVRCVSTALL, (R4) ; Set flag to resume thread after stall 
OOFC C4 59 D0 81 51 RO, NWASL _ THREAD (R4) ; Save IFAB/IRAB address that we are 
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| 086 26 ; stalling on for use by NT$STALLAST 
086 5 ; before it branches to RMSTHREADGO 
00000000 ‘EF 16 0086 54 JSB RMS$STALL ; Await completion of special receive 
bee 36 ; Note: RO contains garbage on return 
; C la 
a08¢ 28 ; Now it's safe to deallocate the NWA and associated DAP buffers. 
08C 260° 
0174 C4 rf O08 61 10$ TSTL NWASQ_BIGBUF+4(R4) : Branch if big DAP buffers have not 
11 1 090 $¢ BEQL 15$ ; been allocated 
55 0170 C4 00 B86 6 MOVL NWA$Q_BIGBUF (R4) ,R5 ; Get # bytes to return 
54 «60174 C4 Be 9 64 MOVL NWASG BIGBUF +4(R4) RG ; Get address of buffer area 
FF61" 30 009C 65 BSBw RMSRETPA ; Deallocate space used by buffer area 
54 3C ag be 009F 66 MOVL IFBSL_NWA_PTR(RI) ,R4 ; Get NWA address 
55 0800 8F C QOA3 67 15$: MOVZWL #NWA$T_BLA,RS ; Get # bytes to return 
| FF55° 30 OQOA8 68 BSBW RMSRETPAG ; Deallocate space used by NWA 
3C AD =D4 Q0AB $89 CLRL IFBSL_NWA_PTR(R9) ; clear in case NWA is deallocated 
] OOAE 70 3; without Seeks ecot tag the IFB 
05 OOAE 271 20$: SB ; Exit with no status in RO 
OOAF 272 
| OOAF 273 END ; End of module 
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| Symbol table 


| $$.PSECT_EP 

“SSRMSTEST 
$SRMS_PBUGCHK 
$SRMS_ TBUGCHK 
SSRMS_UMODE 
EXIT 
IFBSL_NWA_PTR 
LNMS$_ATTRIBUTES 

| CNMS MAX INDE 


NWASB_KEYXABCN 
NWASB_NETSTRS1 
NWASB_NODBUF 51 
NWA$B_OR 
NWASB_OSTYPE 
NWASB_RFM 
NWASB_RMS_RAC 
NWASC~BLN 
NWASC_XLTBUF SIZ 
NWASK—BLN 

NWASL ~ALLXABADR 
NWA$SL~DATXABADR 


NWASL_DEV 
NWASL_F HCXABADR 


T 
Z 
Z 


NWASL_XLTATTR 
NWASL_XLTBUFFLG 
NWASL_XLTCNT 
NWASL_XLTMAX INDX 
NWASL_*LTSI2Z 

NWA 


NWASO” 
NWASQ” SAVE _DESC 
NWASQ_XLTBOF 1 
NWA$Q~XLTBUF 2 
NWAS$Q~XMT 
NWA$T~AC SBUF 
NWA$T~ AUXBUF 
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NWASW_FIL_OFF 
NWASW_JNLRABJOP 
RMS$GETPAG 
RMSRETPAG 
RMS$STALL 
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gnu 
4AC 
000200 
a4 4 
00 8 0 
0000218 
000020C 
0000052¢ 
00000169 
as ts 
0000100 
at ahd 
Bon Sar 
QO0003AC 
000003C0 
= 00000004 
= 00000003 
= 00000005 
000000D2 
QO0000CA 
000000CC 
00000000 
QOO000CE 
0000011E 
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| Psect synopsis 


PSECT name 


Initialization — 
Command processing 


Pass 1 

Symbol table sort 
Pass 2 

Symbol table output 
Psect synopsis output 


Cross-reference output 
Assembler run totals 


Page faults 
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tems aoowea sre ac ese o¢+ 

: Psect synopsis ! 

¢ eee ean ocamoee ee 
Allocation PSECT No. Attributes 
00000000 <¢ af 00 ¢ 0.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
QOOOOOAF (¢ 175.) O1¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
00000800 ( 2048.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


tere een ww em ee ew eno emce= eon} 
' Performance indicators ! 
+ + 


CPU Time Elapsed Time 

32 00:00:00.09 00:00:01.33 
111 Oe ao or a 00:00:03.53 
181 00:00:04.33 00:00:12.99 
0 00:00:00.44 00:00:00.97 
61 00:00:00.96 00:00:03.36 
12 00:00:00.08 00:00:00.08 
2 00:00:00.02 00:00:00.10 

0 00:00:90.00 00:00:00.00 
401 00:00:06.54 00:00:22.38 


The working set Limit was 1200 pages. : 

20043 bytes (40 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 354 non-local and 4 local symbols. 
3 source lines were read in Pass 1, producing 13 object records in Pass 2. 

14 pages of virtual memory were used to define 13 macros. 


Macro Library name 
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! Macro Library statistics : 
he oe ce me a we ca ae tn ce 


Macros defined 


_-$255$DUA28: CRMS.OBJIJRMS.MLB; 1 4 
$255$DUA28:CSYSLIBJSTARLET.MLB;2 5 
TOTALS (all Libraries) 9 


434 GETS were required to define 9 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NTONWASET/OBJ=OBJ$:NTONWASET MSRC$:NTONWASET/UPDATE=(ENHS:NTONWASET) +LIB$:RMS/LIB 
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